Converting characters to dates
#read data file
MDClimate <- read.csv("ClimateData_wDates.csv")
head(MDClimate)
dates <- MDClimate$Date
head(dates)
str(dates)
#convert dates from character class to dates class
ConvertedDate <- as.Date(dates)
#check to see if it worked
class(ConvertedDate)
Monthly Precipitation 1953-2021
str(MDClimate)
## 'data.frame': 819 obs. of 6 variables:
## $ Date: chr "1953-01-01" "1953-02-01" "1953-03-01" "1953-04-01" ...
## $ PRCP: num 12.23 5.43 4.5 1.97 3.3 ...
## $ SNOW: num 0 0 0 0 0 0 0 0 0 0 ...
## $ TAVG: num 46.3 43.2 44.4 49.1 53 56.5 64.5 64.9 63.2 53 ...
## $ TMAX: num 51.5 51.4 53.3 58.8 62.3 66.2 79.7 77.5 76.6 64.8 ...
## $ TMIN: num 41 35.1 35.6 39.4 43.6 46.9 49.3 52.3 49.8 41.2 ...
PRCP <- MDClimate$PRCP
p <- MDClimate %>%
ggplot( aes(x=ConvertedDate, y=PRCP)) +
geom_area(fill="#69b3a2", alpha=0.5) +
geom_line(color="#69b3a2") +
ylab("precipitation (in)") +
xlab("January 1953 - July 2021") +
theme_ipsum()
p <- ggplotly(p)
## Warning: Removed 3 rows containing missing values (position_stack).
p
Monthly Average Temperature
str(MDClimate)
## 'data.frame': 819 obs. of 6 variables:
## $ Date: chr "1953-01-01" "1953-02-01" "1953-03-01" "1953-04-01" ...
## $ PRCP: num 12.23 5.43 4.5 1.97 3.3 ...
## $ SNOW: num 0 0 0 0 0 0 0 0 0 0 ...
## $ TAVG: num 46.3 43.2 44.4 49.1 53 56.5 64.5 64.9 63.2 53 ...
## $ TMAX: num 51.5 51.4 53.3 58.8 62.3 66.2 79.7 77.5 76.6 64.8 ...
## $ TMIN: num 41 35.1 35.6 39.4 43.6 46.9 49.3 52.3 49.8 41.2 ...
TAVG <- MDClimate$TAVG
q <- MDClimate %>%
ggplot( aes(x=ConvertedDate, y=TAVG)) +
geom_line(color="indianred4") +
ylab("Average Temperature (F)") +
xlab("January 1953 - July 2021") +
theme_ipsum()
q <- ggplotly(q)
q
Monthly Minimum Temperature
str(MDClimate)
## 'data.frame': 819 obs. of 6 variables:
## $ Date: chr "1953-01-01" "1953-02-01" "1953-03-01" "1953-04-01" ...
## $ PRCP: num 12.23 5.43 4.5 1.97 3.3 ...
## $ SNOW: num 0 0 0 0 0 0 0 0 0 0 ...
## $ TAVG: num 46.3 43.2 44.4 49.1 53 56.5 64.5 64.9 63.2 53 ...
## $ TMAX: num 51.5 51.4 53.3 58.8 62.3 66.2 79.7 77.5 76.6 64.8 ...
## $ TMIN: num 41 35.1 35.6 39.4 43.6 46.9 49.3 52.3 49.8 41.2 ...
TMIN <- MDClimate$TMIN
q <- MDClimate %>%
ggplot( aes(x=ConvertedDate, y=TMIN)) +
geom_line(color="midnightblue") +
ylab("Minimum Temperature (F)") +
xlab("January 1953 - July 2021") +
theme_ipsum()
q <- ggplotly(q)
q
Monthly Maximum Temperatute
TMAX <- MDClimate$TMAX
x <- MDClimate %>%
ggplot( aes(x=ConvertedDate, y=TMAX)) +
geom_line(color="sienna1") +
ylab("Maximum Temperature (F)") +
xlab("January 1953 - July 2021") +
theme_ipsum()
x <- ggplotly(x)
x